home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / sys / SavInstaller.lha / Installer / examples / processes.installer < prev    next >
Text File  |  1998-09-14  |  1KB  |  60 lines
  1.  
  2. (message "\n\nThis is a small performance test :)\n\n"
  3.          "There are 4 WHILE loops, all counting from 50000\n"
  4.          "down to 0. One time this will be done concurrently\n"
  5.          "(for every WHILE one process) and then these WHILE\n"
  6.          "loops running one after the other...\n"
  7.          "Let`s see, what is faster!"
  8. )
  9. (working "\nPlease be patient - this will take some time.")
  10.  
  11. ; *******************************************************************
  12.  
  13. (set #before1 (database "time"))
  14. (concurrent-do (
  15.                  (set i 50000)
  16.                  (while i (set i (- i 1)))
  17.                )
  18.                (
  19.                  (set j 50000)
  20.                  (while j (set j (- j 1)))
  21.                )
  22.                (
  23.                  (set k 50000)
  24.                  (while k (set k (- k 1)))
  25.                )
  26.                (
  27.                  (set l 50000)
  28.                  (while l (set l (- l 1)))
  29.                )
  30. )
  31. (set #after1 (database "time"))
  32.  
  33. ; *******************************************************************
  34.  
  35. (set #before2 (database "time"))
  36. (
  37.   (set i 50000)
  38.   (while i (set i (- i 1)))
  39. )
  40. (
  41.   (set j 50000)
  42.   (while j (set j (- j 1)))
  43. )
  44. (
  45.   (set k 50000)
  46.   (while k (set k (- k 1)))
  47. )
  48. (
  49.   (set l 50000)
  50.   (while l (set l (- l 1)))
  51. )
  52. (set #after2 (database "time"))
  53.  
  54. ; *******************************************************************
  55.  
  56. (message "\nDone...\n\n"
  57.          ("concurrent: %s - %s\nsequencial: %s - %s" #before1 #after1 #before2 #after2)
  58. )
  59.  
  60.